home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 November / macformat-030.iso / Demos / MF29 / 100 Years of Motoring Demo / Support Files / Dashbrd / Signpost.dir / 00015.ls < prev    next >
Encoding:
Text File  |  1995-03-16  |  405 b   |  17 lines
  1. on animButton theClicks
  2.   puppetSound("Click")
  3.   set whichSprite to the clickOn
  4.   set whichCast to the castNum of sprite whichSprite
  5.   set the castNum of sprite whichSprite to whichCast + 1
  6.   updateStage()
  7.   theTempo(theClicks)
  8.   set the castNum of sprite whichSprite to whichCast
  9.   updateStage()
  10. end
  11.  
  12. on theTempo theClicks
  13.   set y to the timer
  14.   repeat while the timer < (y + theClicks)
  15.   end repeat
  16. end
  17.